home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / hard / drivr / VTXT_eng_pch.lha / VideoTextEngPatch / MakePatch < prev    next >
Text File  |  1996-11-02  |  1KB  |  38 lines
  1. ; Script to create a localized VideoText by patching strings
  2. ; 28-Oct-96 by Adriano De Minicis
  3. ; The original VideoText is left intact. A new patched copy is created
  4. ; in RAM: with name "VideoTextEng". If you like it, drag into the
  5. ; drawer where VideoText is.
  6.  
  7. requestchoice >env:vtinst "VideoText localization" "An english-localized copy of VideoText will be*ncreated (named VideoTextEng). The original*ngerman VideoText program is not affected.*n*nSelect with the next requester the directory*nwhere VideoText resides. If you haven't*ninstalled VideoText, you have to install it*nfirst, then execute this patch.*n*nAre you sure you want to create VideoTextEng?" "Yes" "No"
  8.  
  9. if $vtinst eq "1"
  10.    requestfile >env:vtdrw "RAM:" TITLE "Select the drawer where VideoText resides" DRAWERSONLY
  11.  
  12.    if WARN
  13.       echo "Aborted."
  14.    else
  15.       assign VTPCH: ""
  16.       cd $vtdrw
  17.  
  18.       if exists "VideoText"
  19.          echo "Creating VideoTextEng, please wait..."
  20.          VTPCH:cvt -f VTPCH:VTe.patch -o VideoTextEng VideoText
  21.          if $rc eq "0"
  22.             if not exists "VideoTextEng.info"
  23.                echo "Copying the icon file"
  24.                copy VideoText.info VideoTextEng.info
  25.             endif
  26.             echo "Done."
  27.          endif
  28.       else
  29.          echo "VideoText not found in" $vtdrw
  30.          echo "Aborting"
  31.       endif
  32.  
  33.       echo "*nHit RETURN to exit."
  34.       echo >nil: ?
  35.    endif
  36.  
  37. endif
  38.